home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / GSWAIT.for < prev    next >
Text File  |  1991-04-13  |  166b  |  10 lines
  1.     SUBROUTINE GSWAIT
  2.         IMPLICIT NONE
  3.         REAL*4 DUMMY
  4. C
  5. C    SUBROUTINE TO WAIT FOR MOUSE CLICK ON CLOSEWINDOW GADGET
  6. C
  7.     CALL GSDRVR(9,DUMMY,DUMMY)
  8.     RETURN
  9.     END
  10.